5 POKE55,.:POKE56,56:CLR
6 DV=PEEK(186):IFDV<8THENDV=8
7 PRINT"[147]":POKE53280,.:POKE53281,.
9 POKE53272,31
10 POKE53371,.
12 AD=49152
14 SYSAD:SYSAD+12
40 REM JUPITER'S CENTRAL MERIDIAN
45 BS$="[129][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164]"
50 DT=57
55 P2=2*(null):RD=180/(null):DR=1/RD
60 GOSUB295:REM GET DATE AND UT
65 D=(J-2451545)+F
70 D=D+DT/86400:REM UT TO ET
75 GOSUB395
80 READA1,A2,D1,D2
85 T=T-1:REM CENT FROM 2000.0
90 A1=A1+A2*T
95 D1=D1+D2*T
100 Q=A1:GOSUB690:A1=Q*DR
105 Q=D1:GOSUB690:D1=Q*DR
110 D9=COS(D5)*SIN(A1-A5)
115 N9=SIN(D1)*COS(D5)*COS(A1-A5)
120 N9=N9-COS(D1)*SIN(D5)
125 K=RD*ATN(N9/D9)
130 IFD9<0THENK=K+180
135 :
140 READW0,W1,W2:REM SYSTEM I
145 GOSUB220
150 SYSAD+9,15
151 POKE214,10:PRINT:PRINTTAB(1)"[156][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
153 PRINT:PRINTTAB(4)"[153][195]ENTRAL-[205]ERIDIAN ([201]):";C;"[219]"
155 PRINTTAB(4)"[150][198]OR [208]LANET [202]UPITER (LONG)"
160 READW0,W1,W2:REM SYSTEM II
165 GOSUB220
170 PRINT:PRINTTAB(4)"[153][195]ENTRAL-[205]ERIDIAN ([201][201]):";C;"[219]"
172 PRINTTAB(4)"[150][198]OR [199]REAT [210]ED [211]POT (LONG)"
175 PRINT:PRINTTAB(3)"[153][204]OCATION-"
176 IFC>=25ANDC<35THENGOSUB750
177 IFC>1ANDC<25THENGOSUB755
178 IFC>35ANDC<90THENGOSUB760
179 IFC>90ANDC<360THENGOSUB765
180 GOSUB4000
190 RESTORE:GOTO40
220 REM  ROTATIONS FROM EPOCH
225 W=W0+W1*(D-.0057755*RR)+W2*T
230 Q=W-K:GOSUB690:C=Q
235 C=INT(100*C+.5)/100
240 RETURN
245 REM NORTH POLE R.A.
250 DATA268.05,+0.107
255 REM  NORTH POLE DECLIN
260 DATA64.49,-0.015
265 REM SYSTEM I
270 DATA67.10,877.9000,1.291
275 REM SYSTEM II
280 DATA43.30,870.2700,1,291
285 :
290 REM CALENDAR ---> JD
295 PRINT"[147]":SYSAD+9,7
296 PRINT"[129][220][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][221]"
297 PRINTBS$""TAB(38)BS$
298 PRINT"[129][255][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]"
300 PRINT""TAB(5)"[154]-[150][198][201][206][196] [212][200][197] [199][210][197][193][212] [210][197][196] [211][208][207][212][154]-"
302 PRINTTAB(6)"[158][197]NTER [217]EAR: ";:L9%=4:GOSUB705:Y=Q9
305 PRINTTAB(6)"[158][197]NTER [205]ONTH: ";:L9%=2:GOSUB705:M=Q9
307 IFM=<0ORM>12THENPRINT"[145][145]":GOTO305
310 PRINTTAB(6)"[158][197]NTER [196]AY: ";:L9%=2:GOSUB705:D=Q9
312 IFD=<0ORD>31THENPRINT"[145][145]":GOTO310
315 PRINTTAB(6)"[158][197]NTER [213][212] [200]OUR: ";:L9=2:GOSUB705:H1=Q9
317 IFH1<0ORH1>24THENPRINT"[145][145]":GOTO315
320 PRINTTAB(6)"[158][197]NTER [205]INUTES: ";:L9=2:GOSUB705:M1=Q9
322 IFM1<0ORM1>60THENPRINT"[145][145]":GOTO320
324 PRINTTAB(6)"[158][197]NTER [211]ECONDS: ";:L9=2:GOSUB705:S1=Q9
325 IFS1<0ORS1>60THENPRINT"[145][145]":GOTO324
327 POKE214,10:PRINT:PRINTTAB(4)"[159][201]S THE INFORMATION CORRECT? [155][217]/[206]":POKE198,.
328 GETHC$:IFHC$<>"Y"ANDHC$<>"N"THEN328
329 IFHC$="N"THEN290
330 D=D+H1/24+M1/1440+S1/86400
332 SYSAD+9,9
335 G=1:IFY<1582THEN G=0
340 D1=INT(D):F=D-D1-.5
345 J=-INT(7*(INT((M+9)/12)+Y)/4)
350 IFG=0THEN370
355 S=SGN(M-9):A=ABS(M-9)
360 J3=INT(Y+S*INT(A/7))
365 J3=-INT((INT(J3/100)+1)*3/4)
370 J=J+INT(275*M/9)+D1+G*J3
375 J=J+1721027+2*G+367*Y
380 IFF>0THEN390
385 F=F+1:J=J-1
390 RETURN
395 REM  FUNDAMENTAL ARGUMENTS
400 :
405 T=D/36525+1
410 REM T=CENTURIES FROM 1900.0
415 L0=.779072+.00273790931*D
420 G0=.993126+.0027377785*D
425 L5=.089608+.00023080893*D
430 G5=.056531+.00023080893*D
435 G6=.882987+.00009294371*D
440 L0=(L0-INT(L0))*P2
445 G0=(G0-INT(G0))*P2
450 L5=(L5-INT(L5))*P2
455 G5=(G5-INT(G5))*P2
460 G6=(G6-INT(G6))*P2
465 L=6910*SIN(G0)
470 L=L+72*SIN(2*G0)
475 L=L-17*T*SIN(G0)
480 L=L-7*COS(G0-G5)
485 R=1.00014-.01675*COS(G0)
490 R=R-.00014*COS(2*G0)
495 L=L0+L/206265
500 REM JUIPTER
505 J=19934*SIN(G5)
510 J=J+5023*T+2511
515 J=J+1093*COS(2*G5-5*G6)
520 J=J+601*SIN(2*G5)
525 J=J-479*SIN(2*G5-5*G6)
530 J=J-185*SIN(2*G5-2*G6)
535 J=J+137*SIN(3*G5-5*G6)
540 J=J-131*SIN(G5-2*G6)
545 B=-4692*COS(G5)
550 B=B+227-227*COS(2*G5)
555 B=B+30*T*SIN(G5)
560 R5=5.20883-.25122*COS(G5)
565 R5=R5-.00604*COS(2*G5)
570 R5=R5+.0026*COS(2*G5-2*G6)
575 R5=R5-.0017*COS(3*G5-5*G6)
580 R5=R5-.00106*SIN(2*G5-2*G6)
585 R5=R5-.00091*T*SIN(G5)
590 R5=R5-.00084*T*COS(G5)
595 L5=L5+J/206265:B5=B/206265
600 N9=R5*COS(B5)*SIN(L5-L)
605 D9=R5*COS(B5)*COS(L5-L)+R
610 L1=ATN(N9/D9)
615 IFD9<0THENL1=L1+(null)
620 LL=L1+L
625 V=N9*N9+D9*D9
630 RR=SQR(V+(R5*SIN(B5))^2)
635 S=R5*SIN(B5)/RR
640 BB=ATN(S/SQR(1-S*S))
645 E=(88428-47*T)/206265
650 N9=SIN(LL)*COS(E)-TAN(BB)*SIN(E)
655 D9=COS(LL):A5=ATN(N9/D9)
660 IFD9<0THENA5=A5+(null)
665 S=SIN(BB)*COS(E)
670 S=S+COS(BB)*SIN(E)*SIN(LL)
675 D5=ATN(S/SQR(1-S*S))
680 RETURN
685 :
690 REM NORMALIZE DEGREES
695 Q=Q/360:Q=Q-INT(Q):Q=Q*360
700 RETURN
705 Q9$="":POKE198,.
707 GETA$
709 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN707
711 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):RETURN
713 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO725
715 IFLEN(Q9$)>=L9%THENSYSAD+9,6:GOTO707
717 IF(A$>="0"ANDA$<="9")ORA$="."ORA$="-"THEN721
719 GOTO707
721 Q9$=Q9$+A$
723 PRINT""A$;:SYSAD+9,6:GOTO707
725 PRINT" [157][157] [157]";:GOTO707
750 PRINT:PRINTTAB(13)"[145][145][[159][211]POT IS [195]ENTER [211]TAGE!]":RETURN
755 PRINT:PRINTTAB(13)"[145][145][[159][206]OT [209]UITE THERE [217]ET!]":RETURN
760 PRINT:PRINTTAB(13)"[145][145][[159][202]UST MISSED IT [196]ARN!]":RETURN
765 PRINT:PRINTTAB(13)"[145][145][[159][195]LEAN OUT OF SIGHT!]":RETURN
4000 POKE214,20:PRINT:PRINTTAB(8)"[159](1[159])[154] [212]RY ANOTHER ONE
4005 [153][163]8)"OPEN(2OPEN)CONT (null)O (null)(null)RIGHT$(null)VAL(null)(null)VAL (null)ENU
4010 SYSAD+9,9:POKE198,0
4015 GETA$:IFA$<"1"ORA$>"2"THEN4015
4020 IFA$="1"THENRETURN
4025 SYSAD+15
4030 PRINT"[147][144]LOAD"CHR$(34)"B.UNIVERSE II"CHR$(34)","DV
4035 PRINT"RUN28"
4040 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):N$="SPOT FINDER":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END